home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 162 / 162.d81 / b.bk xmas show (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1997-01-01  |  239 b   |  8 lines
  1. 8 dv=peek(186):ifdv<8thendv=8
  2. 10 poke53281,0:poke53280,0:print"[147]"
  3. 20 poke43,1:poke44,20:poke20*256,0
  4. 30 print"[144]load"chr$(34)"bk xmas show"chr$(34)","dv
  5. 40 print"run"
  6. 50 poke631,13:poke632,13:poke198,2:end
  7. 10000 d=peek(186):n$="b.bk xmas show":open15,d,15,"s0:"+n$:close15:saven$,d:end
  8.